Option Explicit
Sub F_Sample022()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    'Microsoft ADO Ext. 2.7 for DDL and Security ]wޥζ
    'ոF_Data.mdb F_Qry01d
    Dim myCon      As New ADODB.Connection
    Dim myRst      As ADODB.Recordset
    Dim myCat      As New ADOX.Catalog
    Dim myPrmAr    As Variant
    Dim myFileName As String
    Dim myQryName  As String
    Dim i          As Long
    Worksheets.Add
    myFileName = "F_Data.mdb"                           'ŪJɮ
    myQryName = "F_Qry01"                              'ŪJd
    myPrmAr = Array(60)                                  'Ѽƪw
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myCat.ActiveConnection = myCon
    myPrmAr = Array(60)
    With myCat.Procedures(myQryName).Command
        If IsArray(myPrmAr) Then
            For i = 0 To UBound(myPrmAr)
                .Parameters(i) = myPrmAr(i)
            Next
        End If
        Set myRst = .Execute
    End With
    If myRst.EOF Then
        MsgBox "SŦX󪺸"
    Else
        With myRst
           'W
            For i = 1 To .Fields.Count
                Cells(1, i).Value = .Fields(i - 1).Name
            Next
           'O
            Range("A2").CopyFromRecordset myRst, 1
            .Close
        End With
    End If
    myCon.Close
    Set myCon = Nothing                                '
End Sub
